## Protokoll zum 26.06.2013
## Melanie Westenberg
## Abkürzungen Clubnames

## Was habe ich mir für diese Woche vorgenommen?
# Den Code für die automatische Erstellung der Abkürzungen zu programmieren.

## Was habe ich bei der Umsetzung versucht?
# a) Funktion "noumlaute" als ersten Teil der "neuen" Funktion "ct_abbrev" hinzugefügt und 
#    Objekt in "data" umbenannt.
# b) Mit der Funktion toupper() die Buchstaben der Abkürzungen als Großbuchstaben anzeigen lassen.
# c) Geschaut, wie viele doppelte Abkürzungen es gibt
#
if (length(short) != length(unique(short))) {
  dup <- duplicated(short) | duplicated(short, fromLast = TRUE)
# Mit data[dub] können die doppelten Abkürzungen angeschaut werden
# d) Danach geht eine Schleife durch die "doppelten" Abkürzungen, um hier den nächst 
#    unterschiedlichen Buchstaben zu finden und diesen dann duch den 3. Buchstaben der ursprünglichen
#    Abkürzung zu ersetzen.
  n <- max(nchar(data[dup]))
  o <- length(short[dup])
  
  for (i in 4:n) {
    if (length(unique(substr(data[dup], i, i))) == o) {
      for (j in 1:o) {
        short[dup][j] <- sub('.$',
                             substr(data[dup][j], i, i),
                             short[dup][j])
      }
      
      break
    }
  }
# n definiert hierbei die max. Anzahl an Buchstaben, die die Schleife durchegehen soll -> die Länge
# der heweiligen Clubnames der doppelten Abkürzungen gibt hier die max. Länge vor

## Was hat funktioniert?
# Der Code funktioniert; es werden automatisch unique Abkürzungen erstellt

## Was habe ich diese Woche besonders kennengelernt?
duplicated()
toupper()
# regular expressions: ".$" -> beliebig letzter Buchstabe
